home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
LANG
/
BASIC
/
LIB
/
EVENTSHELL
/
DOCS
/
Calendar
< prev
next >
Wrap
Text File
|
1996-04-11
|
4KB
|
187 lines
This extension library should be installed using the
LIBRARY command and initialised with a call to
FN_shell_CalLib_Init. This call must be made AFTER
PROCshell_Init has been called.
This library contains several routines related to the
calendar. In all cases months are numbered from 1 to 12
(1 = January, etc.) and years are the full A.D. year,
(eg. 1993, etc.).
--------------------------------------------------------
PROCshell_CalenderSetMonthString()
=> str a 36 character string of 3 letter
month names, i.e. "JanFebMarApr
MayJunJulAugSepOctNovDec"
This call is provided so that you can set the
language of the returned month strings from the
other routines. For example a German version of
your software would set the string to be "JanFeb
MärAprMaiJunJulAugSepOktNovDez".
Ideally the string would be read from a message
file so that it can easily be translated together
with the other messages.
Installing the library with FN_shell_CalLib_Init
sets the string to English by default.
An error will be generated if the specified
string is not 36 characters long.
--------------------------------------------------------
PROCshell_CalendarSetDayString()
=> str a 21 character string of 3 letter
day names, i.e. "SunMonTueWedThuFriSat"
This call is provided so that you can set the
language of the returned day strings from the
other routines. Ideally the string would be
read from a message file so that it can easily
be translated together with the other messages.
The call to FN_shell_CalLib_Init sets the
string to English by default.
An error will be generated if the specified
string is not 21 characters long.
--------------------------------------------------------
PROCshell_CalenderGetTodaysDate()
=> int day
int month
int year
<= int day updated
int month updated
int year updated
Updates the given variables with the
current date, taken from TIME$ (will
fail if format of TIME$ is not default
English!)
--------------------------------------------------------
FNshell_CalenderDayOfWeek()
=> int date
int month nr
int year
<= int day nr (1 = Sun, 2 =
Mon, etc.
Returns the day of the week for a given
date.
--------------------------------------------------------
FNshell_CalenderWeekDayString()
=> int day nr (1-7)
<= str three letter version of
a day of the week (1 ->
"Sun", 2 -> "Mon" etc.
Returns "***" if day nr was out of range.
--------------------------------------------------------
FNshell_CalenderMonthString()
=> int month nr (1-12)
<= str three letter version of
a month (1 -> "Jan",
2 -> "Feb", etc.)
Returns "***" if month nr was out of range.
--------------------------------------------------------
FNshell_CalenderMonthNumber()
=> str three letter version of
a month. i.e. "Jan"
<= int month nr (1-12)
--------------------------------------------------------
FNshell_CalenderDateString()
=> int day
int month nr
int year
<= str date, i.e "Fri 18th
Oct 1991"
--------------------------------------------------------
FNshell_CalenderDateValid()
=> int day
int month
int year
<= bool TRUE date is valid
FALSE date is not valid
--------------------------------------------------------
FNshell_CalenderDaysInMonth()
=> int month nr (1-12)
int year
<= int nr of days in month
Leap years are taken into account.
--------------------------------------------------------
FNshell_CalenderDaysInYear()
=> int year
<= int nr of days
Leap years are taken into account.
--------------------------------------------------------
FNshell_CalenderLeapYear()
=> int year
<= bool TRUE year is a leap year
FALSE year is not a leap year
--------------------------------------------------------
FNshell_CalenderDayOfYear()
=> int day
int month
int year
<= int day of year
--------------------------------------------------------
FNshell_CalenderDaysBetween()
=> int day (1st date)
int month (1st date)
int year (1st date)
int day (2nd date)
int month (2nd date)
int year (2nd date)
<= int nr of days between dates
--------------------------------------------------------
FN_shell_CalLib_Init
=> None
<= bool TRUE if module initialised correctly
FALSE otherwise
-------------------------------------------------------